#!/uva/bin/perl


print("Enter file path\n");
$file=<>;
print("Enter number of inverters in the chain\n");
$num=<>;
print("All inputs 1 or all inputs 0?\n");
$one=<>;
chomp($one);


$file="/net/eceuva.p8/ld7q/WINVCHAIN/filename.scs";

open(F, ">$file");


$count=0;

while ($count < $num)
{

   print F "\nVVDDa";
   print F "$count";
   print F " ( a";
   print F "$count";
   print F " 0 ) vsource dc=";
   print F "$one";
   $count=$count+1;
   
}

print F "\n\nVVDDH ( VDDH 0 ) vsource dc=1";
print F "\nVVDDL ( VDDL 0 ) vsource dc=0.8";
print F "\nVSH ( SH 0 ) vsource  type=pulse val0=0 val1=1 delay=0n rise=0.001n fall=0.001n width=10n period=20n";
print F "\nVSL ( SL 0 ) vsource  type=pulse val0=1 val1=0 delay=0n rise=0.001n fall=0.001n width=10n period=20n";
print F "\nVVSS ( VSS 0 ) vsource dc=0";
print F "\nVVIN ( VIN 0 ) vsource dc=0";







